R Notebook

seabirds <- read_csv("data/seabirds_cleaned.csv")

New names:Rows: 45911 Columns: 20── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr   (6): species_common, species_scientific, species_abbreviation, age, ew, seasn
dbl  (11): ...1, recordnr_seabird, record_id, count, recordnr_ships, lat, long, prec, wspeed, cld, latcell
lgl   (1): sex
dttm  (1): time
date  (1): date
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

#area with royal albatros sightings!

seabirds %>% 
  filter(str_detect(species_common, "Royal albatros")) %>% 
  leaflet() %>% 
  addProviderTiles(provider = providers$OpenStreetMap) %>% 
  addMarkers(lng = ~long, lat = ~lat, popup = ~species_scientific)